inherit CometCompo_evolution_LM_LP Logical_presentation

#___________________________________________________________________________________________________________________________________________
method CometCompo_evolution_LM_LP constructor {name descr args} {
 this inherited $name $descr
 
# Adding some physical presentations 
 this Add_PM_factories [Generate_factories_for_PM_type [list {CometCompo_evolution_PM_P_TK_canvas_basic Ptf_TK_CANVAS} \
                                                             {CometCompo_evolution_PM_P_TK_view_basic Ptf_TK} \
															 {CometCompo_evolution_PM_P_U_view_basic Ptf_ALL} \
                                                       ] $objName]
  
 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
Methodes_set_LC CometCompo_evolution_LM_LP [P_L_methodes_set_CometCompo_evolution] {} {$this(L_actives_PM)}
Methodes_get_LC CometCompo_evolution_LM_LP [P_L_methodes_get_CometCompo_evolution] {$this(FC)}

#___________________________________________________________________________________________________________________________________________
proc P_L_methodes_set_CometCompo_evolution_COMET_RE {} {return [P_L_methodes_set_CometCompo_evolution]}
Generate_LM_setters CometCompo_evolution_LM_LP [P_L_methodes_set_CometCompo_evolution_COMET_RE]

#___________________________________________________________________________________________________________________________________________


